/ MacFormat 1995 January / macformat-020.iso / Shareware City / HyperCard / AYS 2.1 Final / AYS Example #3 / AYS Example #3.rsrc / srvc_9085_ADSP Server

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 03 99 03 a5 04 3a | 04 44 04 55 04 56 04 59 |.......:|.D.U.V.Y|
|00000010| 04 5c 04 5f 04 76 04 96 | 04 aa 05 d0 05 d3 05 d8 |.\._.v..|........|
|00000020| 05 d9 05 dc 05 de 05 df | ff ff ff ff ff ff ff ff |........|........|
|00000030| ff ff 6f 6e 20 4e 6f 74 | 69 66 79 53 74 72 69 6e |..on Not|ifyStrin|
|00000040| 67 44 65 74 65 63 74 65 | 64 0d 20 20 67 6c 6f 62 |gDetecte|d.  glob|
|00000050| 61 6c 20 41 63 74 69 76 | 65 53 65 72 76 69 63 65 |al Activ|eService|
|00000060| 2c 20 4e 6f 74 69 66 79 | 53 74 72 69 6e 67 46 6f |, Notify|StringFo|
|00000070| 75 6e 64 2c 20 66 6f 75 | 6e 64 53 74 72 69 6e 67 |und, fou|ndString|
|00000080| 2c 20 63 6f 6e 74 72 6f | 6c 44 61 74 61 0d 20 20 |, contro|lData.  |
|00000090| 0d 20 20 70 75 74 20 41 | 63 74 69 76 65 53 65 72 |.  put A|ctiveSer|
|000000a0| 76 69 63 65 20 69 6e 74 | 6f 20 73 65 72 76 69 63 |vice int|o servic|
|000000b0| 65 0d 20 20 69 66 20 45 | 78 70 65 63 74 46 72 6f |e.  if E|xpectFro|
|000000c0| 6d 53 65 72 76 69 63 65 | 28 73 65 72 76 69 63 65 |mService|(service|
|000000d0| 2c 20 33 30 2c 20 66 61 | 6c 73 65 2c 20 74 72 75 |, 30, fa|lse, tru|
|000000e0| 65 2c 20 22 3d c6 3b 22 | 29 20 74 68 65 6e 0d 20 |e, "=.;"|) then. |
|000000f0| 20 20 20 69 66 20 66 6f | 75 6e 64 53 74 72 69 6e |   if fo|undStrin|
|00000100| 67 20 3d 20 31 20 74 68 | 65 6e 0d 20 20 20 20 20 |g = 1 th|en.     |
|00000110| 20 64 65 6c 65 74 65 20 | 63 68 61 72 20 31 20 20 | delete |char 1  |
|00000120| 20 20 6f 66 20 63 6f 6e | 74 72 6f 6c 44 61 74 61 |  of con|trolData|
|00000130| 0d 20 20 20 20 20 20 64 | 65 6c 65 74 65 20 6c 61 |.      d|elete la|
|00000140| 73 74 20 63 68 61 72 20 | 6f 66 20 63 6f 6e 74 72 |st char |of contr|
|00000150| 6f 6c 44 61 74 61 0d 20 | 20 20 20 20 20 62 65 65 |olData. |     bee|
|00000160| 70 0d 20 20 20 20 20 20 | 61 6e 73 77 65 72 20 22 |p.      |answer "|
|00000170| 54 68 65 20 22 20 26 20 | 4e 6f 74 69 66 79 53 74 |The " & |NotifySt|
|00000180| 72 69 6e 67 46 6f 75 6e | 64 20 26 20 22 20 74 68 |ringFoun|d & " th|
|00000190| 61 74 20 77 61 73 20 72 | 65 63 65 69 76 65 64 20 |at was r|eceived |
|000001a0| 3d 20 22 20 26 20 63 6f | 6e 74 72 6f 6c 44 61 74 |= " & co|ntrolDat|
|000001b0| 61 0d 20 20 20 20 20 20 | 72 65 74 75 72 6e 20 74 |a.      |return t|
|000001c0| 72 75 65 0d 20 20 20 20 | 65 6e 64 20 69 66 0d 20 |rue.    |end if. |
|000001d0| 20 65 6e 64 20 69 66 0d | 20 20 72 65 74 75 72 6e | end if.|  return|
|000001e0| 20 66 61 6c 73 65 0d 65 | 6e 64 20 4e 6f 74 69 66 | false.e|nd Notif|
|000001f0| 79 53 74 72 69 6e 67 44 | 65 74 65 63 74 65 64 0d |yStringD|etected.|
|00000200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000210| 2d 0d 6f 6e 20 4c 69 73 | 74 65 6e 4f 70 65 72 61 |-.on Lis|tenOpera|
|00000220| 74 69 6f 6e 43 6f 6d 70 | 6c 65 74 65 64 0d 20 20 |tionComp|leted.  |
|00000230| 67 6c 6f 62 61 6c 20 41 | 63 74 69 76 65 53 65 72 |global A|ctiveSer|
|00000240| 76 69 63 65 2c 20 4c 69 | 73 74 65 6e 69 6e 67 52 |vice, Li|steningR|
|00000250| 65 73 75 6c 74 0d 20 20 | 0d 20 20 70 75 74 20 74 |esult.  |.  put t|
|00000260| 68 65 20 73 68 6f 72 74 | 20 6e 61 6d 65 20 6f 66 |he short| name of|
|00000270| 20 74 68 65 20 74 61 72 | 67 65 74 20 69 6e 74 6f | the tar|get into|
|00000280| 20 73 65 72 76 69 63 65 | 0d 20 20 69 66 20 4c 69 | service|.  if Li|
|00000290| 73 74 65 6e 69 6e 67 52 | 65 73 75 6c 74 20 3d 20 |steningR|esult = |
|000002a0| 22 4c 69 73 74 65 6e 20 | 41 63 63 65 70 74 65 64 |"Listen |Accepted|
|000002b0| 22 20 74 68 65 6e 0d 20 | 20 20 20 73 65 74 20 74 |" then. |   set t|
|000002c0| 68 65 20 76 69 73 69 62 | 6c 65 20 6f 66 20 77 69 |he visib|le of wi|
|000002d0| 6e 64 6f 77 20 61 63 74 | 69 76 65 53 65 72 76 69 |ndow act|iveServi|
|000002e0| 63 65 20 74 6f 20 74 72 | 75 65 0d 20 20 20 20 69 |ce to tr|ue.    i|
|000002f0| 66 20 74 68 65 20 6f 70 | 74 69 6f 6e 6b 65 79 20 |f the op|tionkey |
|00000300| 69 73 20 64 6f 77 6e 20 | 74 68 65 6e 20 67 65 74 |is down |then get|
|00000310| 20 4c 69 73 74 65 6e 53 | 65 72 76 69 63 65 28 73 | ListenS|ervice(s|
|00000320| 65 72 76 69 63 65 2c 20 | 74 72 75 65 2c 20 74 72 |ervice, |true, tr|
|00000330| 75 65 29 0d 20 20 20 20 | 65 6c 73 65 0d 20 20 20 |ue).    |else.   |
|00000340| 20 20 20 69 66 20 4c 69 | 73 74 65 6e 69 6e 67 52 |   if Li|steningR|
|00000350| 65 73 75 6c 74 20 3d 20 | 22 4c 69 73 74 65 6e 20 |esult = |"Listen |
|00000360| 46 61 69 6c 65 64 22 20 | 74 68 65 6e 0d 20 20 20 |Failed" |then.   |
|00000370| 20 20 20 20 20 43 6c 6f | 73 65 53 65 72 76 69 63 |     Clo|seServic|
|00000380| 65 20 73 65 72 76 69 63 | 65 2c 20 66 61 6c 73 65 |e servic|e, false|
|00000390| 0d 20 20 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |.      e|nd if.  |
|000003a0| 20 20 65 6e 64 20 69 66 | 0d 20 20 20 20 65 6e 64 |  end if|.    end|
|000003b0| 20 4c 69 73 74 65 6e 4f | 70 65 72 61 74 69 6f 6e | ListenO|peration|
|000003c0| 43 6f 6d 70 6c 65 74 65 | 64 0d 00 41 44 53 50 20 |Complete|d..ADSP |
|000003d0| 53 65 72 76 65 72 00 54 | 68 65 20 64 65 66 69 6e |Server.T|he defin|
|000003e0| 69 74 69 6f 6e 20 74 68 | 61 74 20 64 65 73 63 72 |ition th|at descr|
|000003f0| 69 62 65 73 20 74 68 65 | 20 6c 69 73 74 65 6e 69 |ibes the| listeni|
|00000400| 6e 67 20 70 61 72 74 20 | 6f 66 20 74 68 65 20 74 |ng part |of the t|
|00000410| 77 6f 20 70 61 72 74 20 | 74 65 73 74 20 73 65 74 |wo part |test set|
|00000420| 2e 20 53 68 6f 75 6c 64 | 20 62 65 20 73 65 74 20 |. Should| be set |
|00000430| 75 70 20 70 72 69 6f 72 | 20 74 6f 20 69 6e 69 74 |up prior| to init|
|00000440| 69 61 74 69 6e 67 20 74 | 68 65 20 70 72 65 76 69 |iating t|he previ|
|00000450| 6f 75 73 20 64 65 66 69 | 6e 69 74 69 6f 6e 20 28 |ous defi|nition (|
|00000460| 41 44 53 50 20 43 61 6c | 6c 29 2e 00 41 75 73 74 |ADSP Cal|l)..Aust|
|00000470| 72 61 6c 69 61 00 54 65 | 72 6d 69 6e 61 6c 20 53 |ralia.Te|rminal S|
|00000480| 65 73 73 69 6f 6e 00 00 | 31 35 00 4e 6f 00 31 30 |ession..|15.No.10|
|00000490| 00 43 6f 6d 6d 61 6e 64 | 2c 4f 70 74 69 6f 6e 2c |.Command|,Option,|
|000004a0| 4d 65 73 73 61 67 65 00 | 51 75 69 74 20 53 65 73 |Message.|Quit Ses|
|000004b0| 73 69 6f 6e 2c 45 78 69 | 74 20 43 6f 6e 6e 65 63 |sion,Exi|t Connec|
|000004c0| 74 69 6f 6e 2c 5e 44 00 | 41 70 70 6c 65 54 61 6c |tion,^D.|AppleTal|
|000004d0| 6b 20 41 44 53 50 20 54 | 6f 6f 6c 00 52 65 67 69 |k ADSP T|ool.Regi|
|000004e0| 73 74 65 72 4e 61 6d 65 | 20 31 20 52 6f 75 6e 64 |sterName| 1 Round|
|000004f0| 54 72 69 70 54 69 6d 65 | 20 31 20 55 73 65 43 68 |TripTime| 1 UseCh|
|00000500| 6f 6f 73 65 72 4e 61 6d | 65 20 30 20 52 65 6d 6f |ooserNam|e 0 Remo|
|00000510| 74 65 41 44 53 50 4e 61 | 6d 65 20 22 54 69 6d 20 |teADSPNa|me "Tim |
|00000520| 42 61 72 6c 6f 77 22 20 | 52 65 6d 6f 74 65 41 44 |Barlow" |RemoteAD|
|00000530| 53 50 54 79 70 65 20 22 | 41 44 53 50 22 20 52 65 |SPType "|ADSP" Re|
|00000540| 6d 6f 74 65 41 44 53 50 | 5a 6f 6e 65 20 22 2a 22 |moteADSP|Zone "*"|
|00000550| 20 4c 6f 63 61 6c 41 44 | 53 50 4e 61 6d 65 20 22 | LocalAD|SPName "|
|00000560| 54 69 6d 20 42 61 72 6c | 6f 77 22 20 4c 6f 63 61 |Tim Barl|ow" Loca|
|00000570| 6c 41 44 53 50 54 79 70 | 65 20 22 41 44 53 50 22 |lADSPTyp|e "ADSP"|
|00000580| 20 52 65 6d 6f 74 65 41 | 64 64 72 65 73 73 20 22 | RemoteA|ddress "|
|00000590| 54 69 6d 20 42 61 72 6c | 6f 77 3a 41 44 53 50 40 |Tim Barl|ow:ADSP@|
|000005a0| 2a 22 20 52 65 6d 6f 74 | 65 53 6f 63 6b 65 74 20 |*" Remot|eSocket |
|000005b0| 22 54 69 6d 20 42 61 72 | 6c 6f 77 3a 41 44 53 50 |"Tim Bar|low:ADSP|
|000005c0| 22 20 4c 6f 63 61 6c 53 | 6f 63 6b 65 74 20 22 54 |" LocalS|ocket "T|
|000005d0| 69 6d 20 42 61 72 6c 6f | 77 3a 41 44 53 50 22 20 |im Barlo|w:ADSP" |
|000005e0| 4c 6f 63 61 6c 41 64 64 | 72 65 73 73 20 22 54 69 |LocalAdd|ress "Ti|
|000005f0| 6d 20 42 61 72 6c 6f 77 | 3a 41 44 53 50 40 2a 22 |m Barlow|:ADSP@*"|
|00000600| 20 00 4e 6f 00 4e 6f 6e | 65 00 00 4e 6f 00 30 00 | .No.Non|e..No.0.|
|00000610| 00 30 2c 38 2c 30 2c 30 | 00                      |.0,8,0,0|.       |
+--------+-------------------------+-------------------------+--------+--------+